home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Business Master (3rd Edition)
/
The Business Master (3rd Edition).iso
/
files
/
grap_cad
/
dancd23
/
demo1.sub
< prev
next >
Wrap
Text File
|
1990-10-04
|
2KB
|
54 lines
; START DEMO1.SUB this goes with DEMO1.MAC for DANCAD3D v2.5x
; Copyright (c) 1990 by Daniel H. Hudgins. All rights reserved.
TEXT ; Clear the screen
ECHO ┌─────────────────────────────────────────────────────────────────────────────┐
ECHO │ DEMO1.MAC DEMONSTRATION MACRO FOR DANCAD3D v2.5x OR LATER. │
ECHO └─────────────────────────────────────────────────────────────────────────────┘
LOCATE 1 5
ECHO This macro creates a series of pixel frame files that form a frame sequence
ECHO for the animation of a piston, rod, and crank shaft. DANCAD3D macros are
ECHO scripting files of common ASCII format text, and can be created with the
ECHO internal text editor, Write from the main menu, or any pure ASCII text editor
ECHO or word processor. The macro commands correspond to the menu commands in
ECHO DANCAD3D, for instance, Rotate in the menu is ROTATE in the macro code.
LOCATE 1 12
ECHO The macro begins by setting up a quick loading elements file set that is
ECHO loaded automatically by the LOAD command in the main animation loop in macro
ECHO DEMO1.MAC. The RUN macro command in macro DEMO1.MAC allows DANCAD3D macros to
ECHO automatically run sub-macros (subroutines), in this case the file named
ECHO DEMO1.SUB.
LOCATE 1 18
ECHO The main loop of the macro takes advantage of DANCAD3D's comprehensive
ECHO kernel of mathematical functions. DANCAD3D macro language allows for variables
ECHO to be used to hold and calculate values that can be entered automatically into
ECHO any of DANCAD3D's commands that operate on elements of the drawing in the
ECHO workspace. The ANIMATE command at the end of the macro loads the pixel file
ECHO set and displays the frames on the computer screen.
LOCATE 1 25 ECHO <<< Read the above information while the program is working... >>> %%
{ Set up quick loading set of elements. }
INITIALIZE ; Clear the workspace.
LOAD ASCII DEMO1A.ASC
LOAD ASCII DEMO1B.ASC
LOAD ASCII DEMO1C.ASC
SAVE ELEMENTS DEMO1.3DE
BEEP
LOCATE 1 25 ECHO Press the [Return] key when finished reading the above information. %%
WAIT ; Wait for [Return] or [Mouse-Left] button to be pressed.
LOCATE 1 25 ECHO <<< Working: Macro now running, please stand by... >>> %%
; END DEMO1.SUB